-- card: 2286 from stack: in
-- bmap block id: 7123
-- flags: 4000
-- background id: 5184
-- name: Brugervalg
----- HyperTalk script -----
on openCard
  setUserLevel the userLevel
  if card field "Brugernavn" is empty
  then click at the loc of card field "Brugernavn"
  pass openCard  -- added 4/14 MDH
end openCard

on setUserLevel whatLevel
  set userLevel to whatLevel
  if the userLevel is whatLevel then
    put the userLevel into card field "Brugerniveau"
    set hilite of button "Se" to the userLevel = 1
    set hilite of button "Indtaste" to the userLevel = 2
    set hilite of button "Tegne" to the userLevel = 3
    set hilite of button "Forfatte" to the userLevel = 4
    set hilite of button "Programmere" to the userLevel = 5
    set visible of button "Tekstpile" to the userlevel >= 2
    set visible of button "Effekttaster" to the userLevel >= 3
    set visible of button "Blindskrift" to the userLevel = 5
    set hilite of button "Tekstpile" to the textArrows
    set hilite of button "Effekttaster" to the powerKeys
    set hilite of button "Blindskrift" to the blindTyping
  else
    set hilite of the target to false
  end if
end setUserLevel



-- part 1 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=145 right=166 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Se
----- HyperTalk script -----
on mouseUp
  setUserLevel 1
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=95 top=187 right=208 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tegne
----- HyperTalk script -----
on mouseUp
  setUserLevel 3
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=208 right=229 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Forfatte
----- HyperTalk script -----
on mouseUp
  setUserLevel 4
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=229 right=250 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Programmere
----- HyperTalk script -----
on mouseUp
  setUserLevel 5
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=211 top=187 right=208 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Effekttaster
----- HyperTalk script -----
on mouseUp
  set powerKeys to the hilite of button "Effekttaster"
end mouseUp



-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=176 top=92 right=112 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Brugernavn
----- HyperTalk script -----
on closeField
  global userName
  put card field "Brugernavn" into userName
end closeField



-- part 8 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=166 right=187 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Indtaste
----- HyperTalk script -----
on mouseUp
  setUserLevel 2
end mouseUp



-- part 9 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=173 top=125 right=144 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User Level


-- part 13 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=211 top=229 right=250 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blindskrift
----- HyperTalk script -----
on mouseUp
  set blindTyping to the hilite of button "Blindskrift"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=211 top=166 right=187 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tekstpile
----- HyperTalk script -----
on mouseUp
  set textArrows to the hilite of button "Tekstpile"
end mouseUp



-- part 15 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=196 top=123 right=143 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Brugerniveau
----- HyperTalk script -----




-- part contents for background part 6
----- text -----
Brugervalg

-- part contents for card part 9
----- text -----
5

-- part contents for card part 15
----- text -----
3